home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / gas_251.zip / bin_251 / binutils / testsuite / config / unix.exp < prev   
Text File  |  1994-09-02  |  2KB  |  60 lines
  1. #   Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-dejagnu@prep.ai.mit.edu
  19.  
  20. # This file was written by Rob Savoye. (rob@cygnus.com)
  21.  
  22. load_lib util-defs.exp
  23.  
  24. global NM
  25. if ![info exists NM] then {
  26.     set NM [findfile $base_dir/../nm.new $base_dir/../nm.new [transform nm]]
  27. }
  28. global NMFLAGS
  29. if ![info exists NMFLAGS] then {
  30.     set NMFLAGS ""
  31. }
  32. global SIZE
  33. if ![info exists SIZE] then {
  34.     set SIZE [findfile $base_dir/../size]
  35. }
  36. global SIZEFLAGS
  37. if ![info exists SIZEFLAGS] then {
  38.     set SIZEFLAGS ""
  39. }
  40. global OBJDUMP
  41. if ![info exists OBJDUMP] then {
  42.     set OBJDUMP [findfile $base_dir/../objdump]
  43. }
  44. global OBJDUMPFLAGS
  45. if ![info exists OBJDUMPFLAGS] then {
  46.     set OBJDUMPFLAGS ""
  47. }
  48.  
  49. #
  50. # add some basic error trapping. These mostly catch programming error's
  51. # within the tests themselves
  52. #
  53. expect_before {
  54.     buffer_full           { perror "internal buffer is full." }
  55.     "can't open '*'" { perror "Can't open test file." }
  56. }
  57.  
  58.  
  59.  
  60.